Untitled

Lucas Voirin

Mise en contexte

On s’intéresse à l’impact de l’exploitation de la tourbe sur les communautés fauniques.

On considère les communautés d’invertébrés rampants d’une zone exploitée en comparaison à une zone témoin.

Dispositif

Jeu de données 1

	\(Taxon_1\)	\(Taxon_2\)	\(…\)	\(Taxon_i\)
\(Grille_1\) / \(Date_1\)	\(N_{1, 1}\)	\(N_{1, 2}\)	\(…\)	\(N_{1, i}\)
\(Grille_2\) / \(Date_2\)	\(N_{2, 1}\)	\(N_{2, 2}\)	\(…\)	\(N_{2, i}\)
\(…\)	\(…\)	\(…\)	\(…\)	\(…\)
\(Grille_n\) / \(Date_n\)	\(N_{n, 1}\)	\(N_{n, 2}\)	\(…\)	\(N_{n, i}\)

Jeu de données 2

\(Grille\)	\(Date\)	\(Taxon\)	\(Pluie\)	\(Température\)
\(...\)	\(...\)	\(...\)	\(...\)	\(...\)
\(...\)	\(...\)	\(...\)	\(...\)	\(...\)
\(...\)	\(...\)	\(...\)	\(...\)	\(...\)

Code

fosses = read.csv("data/fosses.csv") %>%
  pivot_longer(
    cols = 6:18,
    names_to = "Taxa",
    values_to = "Count"
  ) %>%
  mutate(Date = ymd(paste(Year,Month,Day))) %>% 
  left_join(DailyMeteo) %>% 
  left_join(vegetation)